home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 245 / creditlo.lst < prev    next >
File List  |  1988-10-10  |  2KB  |  80 lines
  1. @Dialog_box
  2. Procedure Dialog_box
  3. ' DIALOG CONSTRUCTION SET (c) Programmed by Derrick Anthony Hall
  4. '
  5. '     PERMISSION GRANTED TO USE DIALOG CONSTRUCTION SET (c)
  6. '       GENERATED SOURCE CODE WITHIN GFA BASIC PROGRAMS.
  7. '
  8. '   Source code can be published or upload to bulletin boards.
  9. '
  10. ' I only ask that you give VISIBLE CREDIT within your program to
  11. '            Dialog Construction Set resource editor.
  12. '
  13. '                    Have fun and enjoy!
  14. '         Merge this source LST file into your program
  15. @Shrink_grow(1,5,5,5,5,51,21,217,169)
  16. Sget yourname$
  17. Graphmode 1
  18. Deffill 0,2,8
  19. '                      DIALOG box parameters
  20. ' Box #1
  21. 'Insert Deffill here, to fill boxes with color or pattern
  22. Pbox 62,19,259,192
  23. Box 62,19,259,192
  24. Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  25. ' Box #2
  26. 'Insert Deffill here, to fill boxes with color or pattern
  27. Pbox 64,23,257,189
  28. Box 64,23,257,189
  29. Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  30. '                   TOUCHEXIT button parameters
  31. ' Box #1
  32. 'Insert Deffill here, to fill boxes with color or pattern
  33. Pbox 120,170,202,186
  34. Box 120,170,202,186
  35. Deffill 0,2,8   !reset Deffill to normal, if box area is colored or filled.
  36. '                     RADIO button parameters
  37. '      To change text FONT and COLOR use the command DEFTEXT 
  38.  Text 130,182,"Continue"
  39. Text 134,40,"Dialog "
  40. Text 114,51,"Construction"
  41. Text 148,63,"Set"
  42. Text 113,87,"Version 1.20"
  43. Do
  44. K=mousek
  45. While K=1
  46. Mouse X,Y,K
  47. If X>120and Y>170and X<202And Y<186And K
  48. Graphmode 2
  49. Deffill 1,2,8
  50. Pbox 120,170,202,186
  51. Graphmode 3
  52. Text 130,182,"Continue"
  53. Pause 8
  54. Goto Buttonend
  55. Endif
  56. Wend
  57. Loop
  58. Buttonend:
  59. Sput yourname$
  60. Clr yourname$
  61. Graphmode 1
  62. @Shrink_grow(0,5,5,5,5,51,21,219,172)
  63. Return
  64. '
  65. Procedure Shrink_grow(Gem,Lightx,Lighty,Wsgx,Hsgy,Lox,Loy,Wx,Hy)
  66. Dpoke Gintin,Lightx
  67. Dpoke Gintin+2,Lighty
  68. Dpoke Gintin+4,Wsgx
  69. Dpoke Gintin+6,Hsgy
  70. Dpoke Gintin+8,Lox
  71. Dpoke Gintin+10,Loy
  72. Dpoke Gintin+12,Wx
  73. Dpoke Gintin+14,Hy
  74. If Gem=1
  75. Gemsys (73)
  76. Else
  77. Gemsys (74)
  78. Endif
  79. Return
  80.